5 DV=PEEK(186):IF DV<8 THEN DV=8
10 REM VERSION 3 (2003) BY JAMES T.      JONES OF MODIFICATION OF PROGRAM
20 REM 'EASY KEYS' (ON ISSUE 46 OF       LOADSTAR) BY STEVE GOLDSMITH
30 CD$=CHR$(17):REM CURSOR DOWN
40 Q$=CHR$(34):REM QUOTATION MARK
50 CR$=CHR$(13):REM CARRIAGE RETURN
60 F$(1)="[147] CLOSE15:OPEN15,DV,15,"+Q$+"V0"+Q$+":CLOSE15"+CR$:REM VALIDATE DISK
70 F$(2)="[147] SYS 267"+CR$:REM DISPLAYS    VARIABLES OF DISK DRIVE ERROR CHANNEL
80 F$(3)="[147] SYS52736"+CR$:REM DISPLAYS  DIRECTORY; ANALOGOUS TO F3 KEY ON C-128
90 F$(4)="[147] "+CHR$(147)+CR$:REM CLEARS   SCREEN; ANALOGOUS TO F4 KEY ON C-128
100 F$(5)="[147] PRINT CHR$(14)"+CR$:REM     CHANGES CASE TO LOWER CASE
110 F$(6)="[147] RUN"+CR$:REM ANALOGOUS TO   INITIAL ASSIGNMENT OF F6 KEY ON C-128
120 F$(7)="[147] LIST"+CR$:REM ANALOGOUS TO  INITIAL ASSIGNMENT OF F7 KEY ON C-128
130 F$(8)="[147] CLOSE15:OPEN15,DV,15,"+Q$+"I0"+Q$+":CLOSE15"+CR$:REM INITIALIZE
132 REM DISK DRIVE
140 POKE53280,0:POKE53281,0:PRINT"[147]"CHR$(14):POKE214,11:PRINT
150 PRINTSPC(15)"[204][207][193][196][201][206][199] FILES...."
160 SYS57812"EZ F KEYS.O",DV,0:POKE780,0:POKE781,16:POKE782,192:SYS65493
170 SYS57812"UNIVDIR(52736).O",DV,0:POKE780,0:POKE781,0:POKE782,206:SYS65493
180 SYS57812"DRIVE CHK(267).O",DV,0:POKE780,0:POKE781,11:POKE782,1:SYS65493
190 T$="[197][218] [198]-[203][197][217][211] [214]3":PRINT"[147]"SPC(20-LEN(T$)/2)T$""
200 PRINT"     [212]HIS PROGRAM CREATES OPERATIONS"
210 PRINT"ACCESSED BY PRESSING THE INDICATED"
220 PRINT"FUNCTION KEYS.  [215]ITH SOME EXCEPTIONS,"
222 PRINT"THEY ARE ANALOGOUS TO THE INITIAL [198]"
224 PRINT"KEY ASSIGNMENTS OF THE [195]-128."
230 PRINT"[198]1: VALIDATE DISK (UNLIKE [195]-128)"
240 PRINT"[198]2: ENTER SYS 267: DISPLAYS DISK"
260 PRINT"    DRIVE STATUS (UNLIKE [195]-128)"
270 PRINT"[198]3: ENTER SYS 52736: DISPLAYS DIRECTORY"
280 PRINT"    (LIKE [195]-128)"
300 PRINT"[198]4: CLEARS SCREEN (LIKE [195]-128)"
320 PRINT"        PRESS <[211][208][193][195][197]> TO CONTINUE"
330 GETA$:IF A$<>" " THEN330 
340 PRINT"[147][198]5: CHANGES CASE TO LOWER CASE"
350 PRINT"[198]6: RUN (LIKE [195]-128)"
360 PRINT"[198]7: LIST (LIKE [195]-128)"
370 PRINT"[198]8: INITIALIZE DISK DRIVE (UNLIKE 128)"
380 PRINT"     [194]Y CHANGING THE EXPRESSIONS FOR"
390 PRINT"THE FUNCTIONS F$(N) IN THE BEGINNING"
400 PRINT"LINES OF THE PROGRAM, YOU CAN MODIFY"
410 PRINT"THE OPERATIONS THAT THE FUNCTION KEYS"
420 PRINT"CARRY OUT.  [217]OU WILL WANT TO CHANGE"
430 PRINT"THE CORRESPONDING DESCRIPTIONS, AS"
440 PRINT"WELL.  [194]E SURE TO [211][193][214][197] THE RESULTING"
450 PRINT"PROGRAM!"
460 PRINT"     [206]OW, EXIT THE PROGRAM AND USE"
470 PRINT"THOSE FUNCTION KEYS ON YOUR [195]-64!"
480 POKE214,20:PRINT:PRINT"     PRESS <[211][208][193][195][197]> TO EXIT PROGRAM"
490 GETA$:IF A$<>" " THEN490 
500 BU=49408:OPEN1,0
510 PRINT"[147]    [201]NFORMATION IS BEING ENTERED....    [146]"
520 FORA=1TO8:HI=INT(BU/256):LO=BU-HI*256:POKE49152+(A-1)*2,LO
530 POKE49153+(A-1)*2,HI:READB:FORC=1TOLEN(F$(B))
540 POKE BU,ASC(MID$(F$(B),C,1)+CHR$(0)):BU=BU+1:NEXT:NEXT:CLOSE1,0:SYS49168:END
560 REM FUNCTION KEY EVALUATION
570 DATA7,1,3,5,8,2,4,6
10000 N$="EZ F KEYS V3.BAS":D=PEEK(186):IF D<8 THEN D=8
10010 CLOSE15:OPEN15,D,15,"S:"+N$:CLOSE15:SAVE N$,D:VERIFY N$,D:END